﻿Type=Activity
Version=3.15
@EndOfDesignText@
#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	Dim lblBS As Label
	Dim lblBW As Label
	Dim lblNL As Label
	Dim lblXB As Label
	Dim lblXM As Label
	Dim lblZYH As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	'Activity.LoadLayout("Layout1")
	Activity.LoadLayout("FormJCView")
	Activity.Title = "明细信息"
	
	InitLayOut
	
End Sub

Sub Activity_Resume
	LoadData
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub InitLayOut
	
	'高级菜单
	Activity.AddMenuItem("查找","MenuItemAdv")

End Sub

Sub MenuItemAdv_Click
	If Sender = "查找" Then
		StartActivity("XMSearch") 
	End If
	
End Sub

Sub LoadData
	
	If PublicVar.GV_JC_XM = "张三" Then
		lblZYH.Text = "10000"	
		lblXM.Text = "张三"
		lblXB.Text = "男"
		lblNL.Text = "20岁"
		lblBS.Text = "无明显症状"
		lblBW.Text = "头颅正侧位"
	Else If PublicVar.GV_JC_XM = "李四" Then	
		lblZYH.Text = "10001"	
		lblXM.Text = "李四"
		lblXB.Text = "女"
		lblNL.Text = "25岁"
		lblBS.Text = "无明显症状"
		lblBW.Text = "胸部正侧位"		
	Else If PublicVar.GV_JC_XM = "王五" Then	
		lblZYH.Text = "10002"	
		lblXM.Text = "王五"
		lblXB.Text = "女"
		lblNL.Text = "25岁"
		lblBS.Text = "无明显症状"
		lblBW.Text = "腹部正侧位"			
	End If

End Sub


